home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TAN_SND.ARJ / BEAT.PAS next >
Pascal/Delphi Source File  |  1991-07-28  |  728b  |  41 lines
  1. { BEAT.PAS -  Demo of drum routines for Tandy 1000 and/or PCJr }
  2.  
  3. uses noiz,drums;
  4.  
  5. procedure beat;
  6. var i: integer;
  7. begin
  8.   i:=0;
  9.   up(0,25,1);
  10.   roll(1,2,20);
  11.   repeat
  12.     inc(i);
  13.     bass(1,10);
  14.     snare(1,10);
  15.     bass2(1,10);
  16.     snare(1,10);
  17.     case i of
  18.       4: begin
  19.            snare(2,5); snare(6,3);
  20.            tom(2,2); lowtom(2,2);
  21.            bass2(2,4); roto1(8,2);
  22.          end;
  23.       8: begin
  24.            i:=0;
  25.            roto1(8,2); bass2(2,4);
  26.            lowtom(2,2); tom(2,2);
  27.            snare(6,3); snare(2,5);
  28.          end;
  29.     end;
  30.   until keyhit;
  31.   up(0,20,1);
  32.   echo(90,short);
  33.   quiet;
  34. end;
  35.  
  36. begin
  37.   echo(150,long);
  38.   writeln('Hit Any Key to End');
  39.   beat;
  40. end.
  41.